home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / System / Device.st < prev    next >
Encoding:
Text File  |  2000-05-03  |  872 b   |  44 lines
  1. "---------------------------------------------------------------------"
  2. " Device Class is an abstract class.  Derived classes use its methods "
  3. " to talk to the Amiga OS. "
  4. "---------------------------------------------------------------------"
  5.  
  6. Class Device :Object
  7. [
  8.   clear
  9.    super notImplemented: 'clear'.
  10.    ^ nil
  11. |
  12.   flush: devName
  13.    super subClassResponsibility: 'flush: devName'.
  14.    ^ nil
  15. |
  16.   invalid
  17.    super notImplemented: 'invalid'.
  18.    ^ nil
  19. |
  20.   read: devName
  21.    super notImplemented: 'read: devName'.
  22.    ^ nil
  23. |
  24.   reset: devName
  25.    super subClassResponsibility: 'reset: devName'.
  26.    ^ nil
  27. |
  28.   stop
  29.    super notImplemented: 'stop'.
  30.    ^ nil
  31. |
  32.   start
  33.    super notImplemented: 'start'.
  34.    ^ nil
  35. |
  36.   update
  37.    super notImplemented: 'update'.
  38.    ^ nil
  39. |
  40.   write: devName this: string
  41.     super subClassResponsibility: 'write: devName this: string'.
  42.     ^ nil
  43. ]
  44.